home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / movies / collection.dir / 00008_Script_ÉeÉLÉXÉgä÷åW < prev    next >
Text File  |  1997-12-23  |  3KB  |  120 lines
  1. -- ╔e╔L╔X╔gΩ╞σ`Σ≈σW
  2. on cutHead tmp
  3.   global gTextResult
  4.   set gTextResult to ""
  5.   set l to length(tmp)  - 1 
  6.   repeat with t = 4 to l
  7.     set gTextResult to gTextResult & char t of tmp
  8.   end repeat
  9.   
  10.   return gTextResult
  11. end
  12.  
  13. --on WhatThis txt
  14. --  -- **:╟├∞ç≤e╟⌐╟┴
  15. --  -- ╔V╔Σ┼[╔Y╟╗╟├╟⌐
  16. --  -- ╔^╔C╔g╔π╟╗╟├╟⌐
  17. --  -- ╔O╔π┼[╔v╔f┼[╔^╟╗╟├╟⌐╟¥φÅ╟╫╟╚
  18. --  global gTextResult
  19. --  set gTextResult = ""
  20. --  global gResult
  21. --  set gResult = 0
  22. --  
  23. --  if (chartonum(char 2 of txt) = 26)then
  24. --    set gResult to 3
  25. --    return
  26. --  end if
  27. --  
  28. --  set n to (char 1 of txt)& (char 2 of txt)
  29. --  case n of 
  30. --      -- Series
  31. --    "SR":
  32. --      -- Title
  33. --    "TI":
  34. --      -- BmpName
  35. --    "BM":
  36. --      -- Flag
  37. --    "FL":
  38. --      repeat with t = 3 to count(txt)
  39. --        set gTextResult to gTextResult & char t of txt
  40. --      end repeat
  41. --      return gTextResult  
  42. --      
  43. --      -- Comment
  44. --    "CM":
  45. --      
  46. --      
  47. --  end case
  48. --end WhatThis
  49.  
  50. on DevideText txt
  51.   -- ╔Σ╔^┼[╔∞╟Ö╟å╟╚╟╨╟▒╟╬╟╝╔e╔L╔X╔g╟¥∩Ö╟╪╟╚┼B
  52.   -- δOε║∩ε∩Ö╟ÖgTextResult┼AΘc╟╦∩ε∩Ö╟ÖgResult╟àΘ╛╟ï╟╚
  53.   global gResult
  54.   global gTextResult
  55.   set gResult to ""
  56.   set gTextResult to ""
  57.   set flag to 0
  58.   
  59.   set l to length(txt)
  60.   repeat with t = 1 to l
  61.     set c = char t of txt
  62.     if (c = RETURN)and (flag <>1) then
  63.       set flag = 1
  64.       next repeat
  65.     end if
  66.     if flag = 1 then
  67.       set gResult = gResult & c
  68.     else
  69.       set gTextResult = gTextResult & c
  70.     end if
  71.   end repeat
  72.   return gTextResult
  73. end
  74.  
  75. --on DelRet txt
  76. --  global gTextResult
  77. --  set gTextResult = ""
  78. --  repeat with t = 1 to length(txt)
  79. --    set c = char t of txt
  80. --    -- 10 (0x0a) ╟Ö≤]∩Ö╟╗╟├╟╝╔J╔b╔g╟▌╟╚
  81. --    -- 26 (0x1a) ╟╒╔t╔@╔C╔π╔G╔∞╔h╟╗╟├╟╝╔J╔b╔g╟▌╟╚
  82. --    if (c <> numtochar(10)) and (c <> numtochar(26)) then
  83. --      set gTextResult = gTextResult & c
  84. --    end if
  85. --  end repeat
  86. --  return gTextResult
  87. --end
  88.  
  89. --on CheckReturn txt
  90. --  -- ╔Σ╔^┼[╔∞╟├Ωε╟¥φÅ╟╫╟â∩æ╟▌
  91. --  global gTextResult
  92. --  global gResult
  93. --  set gResult to 0
  94. --  repeat with t = 1 to length(txt)
  95. --    set c = char t of txt
  96. --    if(c = RETURN) then
  97. --      set gResult to gResult + 1
  98. --    end if
  99. --  end repeat
  100. --  return gResult
  101. --end
  102.  
  103. on CollectTitle txt
  104.   set r to 0
  105.   repeat with t = 1 to length(txt)
  106.     set c = char t of txt
  107.     if( c=RETURN) then
  108.       set r to r+1
  109.     end if
  110.   end repeat
  111.   case r of
  112.     0:
  113.       set txt to txt & RETURN & RETURN
  114.       
  115.     1:
  116.       set txt to txt & RETURN
  117.   end case
  118.   return txt
  119. end
  120.